-- card: 13796 from stack: in.0
-- bmap block id: 14001
-- flags: 0000
-- background id: 15491
-- name: 
----- HyperTalk script -----
-- part of the apple animation
on dropApple
  global TreeTop
  set cursor to none
  put the top of btn "apple" into TreeTop
  -- the apple shakes before dropping
  repeat 4
    add 4 to TreeTop
    set the top of btn "apple" to TreeTop
    wait 10
    subtract 4 from TreeTop
    set the top of btn "apple" to TreeTop
  end repeat
  -- drop the apple
  set the top of btn "apple" to 97
  wait 10
  set the top of btn "apple" to 119
  wait 10
  set the top of btn "apple" to 215
  play "boing"
end dropApple



-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=359 top=78 right=119 bottom=398
-- title width / last selected line: 0
-- icon id / first selected line: 9317 / 9317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: apple


-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=474 top=195 right=224 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 24471 / 24471
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MapBtn
----- HyperTalk script -----
-- Go to the Map stack.  "CameFrom" holds the name of this cd
-- so the Map can hilite the cd the user came from.

on mouseUp
  global DisSpeed, CameFrom, MapMode
  set the hilite of me to true
  lock Screen
  set the hilite of me to false
  put "Introduction to" into CameFrom
  put last char of the icon of bg btn "section" into sectionNum
  if sectionNum > 3 then put 2 into sectionNum
  put "section" && sectionNum & ":" into SubCd
  visual DisSpeed
  if MapMode is "graph" then
    go to cd SubCd of stack "•HC 2.0-3"
    HiliteMap
  else
    go to cd "indexmap" of stack "•HC 2.0-3"
  end if
  unlock screen with DisSpeed
end mouseUp